home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / Sections with Tempos < prev    next >
Text File  |  1998-10-26  |  961b  |  49 lines
  1. ; using tempo in sections
  2.  
  3. (def-orchestra 'orchestra
  4.    all-instruments (piano1 piano2)
  5. )
  6.  
  7. (def-section sect-a
  8.    default
  9.       tempo-zones '(1/2 1/2 1/1 1/1 1/1)
  10.       zone '(1/1 1/1 1/1 1/1)
  11.       tempo '(200 170 100 150 175) ; tempos for each tempo zone
  12.       tonality (activate-tonality (major c 4))
  13.       length '(1/8)
  14.       velocity '(64)
  15.    piano1
  16.       channel 1
  17.       symbol '(a b c)
  18.       program '(1)
  19.    piano2
  20.       channel 2
  21.       symbol '(=)
  22.       program '(46)
  23. )
  24.  
  25. (def-section sect-b
  26.    default
  27.       tempo-zones '(1/2 1/2 1/1 1/1 1/1)
  28.       zone '(1/1 1/1 1/1 1/1)
  29.       tempo '(200 170 100 150 175) ; tempos for each tempo zone
  30.       tonality (activate-tonality (major c 4))
  31.       length '(1/8)
  32.       velocity '(64)
  33.    piano1
  34.       channel 1
  35.       symbol '(=)
  36.       program '(1)
  37.    piano2
  38.       channel 2
  39.       symbol '(ace)
  40.       program '(46)
  41. )
  42.  
  43. (midiport :printer)
  44.  
  45. (play-file-p "sections with tempos"
  46.    all-instruments '(sect-a sect-b)
  47. )
  48.  
  49.